﻿Public Class Form1
  Private Sub Button1_Click(ByVal sender As System.Object,
        ByVal e As System.EventArgs) Handles Button1.Click
    SetFormIcon()
  End Sub

  Sub SetFormIcon()
    Me.Icon = My.Resources.PostIt
  End Sub
End Class
